Sense My FEUP - April 2016 Data

Introduction

This report explores the dataframes from April 2016 (sense_my_feup.Rmd). The data is soon filtered to consider only points in the Porto square. Finally, it concludes the main edges for better evaluation in the next chapters.

Index:

• Data setup
• Intersession time
• Mapping
• Sessions
• Speed
• Time series (first attempt)

---

SenseMyFEUP data

Data loading

Data used is previously filtered by travelmode (car and bus) and date (April 2016).
We filter our data to consider only points in a square of the Porto Metropolitan area.

Intersession times

This section explores the time between different sessions in the same edge.
### Intersession times and number of sessions.

All intersession time Porto April16. This figure shows that most of the edges have an intersession time greater than 1 hour.

Intersession time along the week. Here we can see that weekends have an intersession time way bigger than weekdays, this could be caused by users going out of Porto on the weekends, reaching out our frontier.

We recommend that you use the dev version of ggplot2 with `ggplotly()`
Install it with: `devtools::install_github('hadley/ggplot2')`

Number of sessions per edge. We can see the limitations in our data when most of the edges have less than 5 sessions in the whole month, mostly even having just 1. In next chapters we will study more the edges with more than 50 sessions.

Analizing edges >50 sessions.

• hotedges -> more 50 sessions. 3537 sessions in total.
• superhot_edges -> more 170 sessions. 1369 sessions in total.

Points (probably to delete)

This section is needed to then map. Maps the amount of points. It is better to map with number of sessions.

ECDF

Only 25% is under 1h intersession time.

As expected, there is higher intersession time at night.

ECDF by #sessions

Edges with >50 sessions.

We recommend that you use the dev version of ggplot2 with `ggplotly()`
Install it with: `devtools::install_github('hadley/ggplot2')`

We recommend that you use the dev version of ggplot2 with `ggplotly()`
Install it with: `devtools::install_github('hadley/ggplot2')`
`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
Removed 248 rows containing non-finite values (stat_bin).

Showing maps

Traffic Map April Porto 2016 all

Traffic Map April 2016 all >50

Top edges

Number of sessions analysis.

Day of the week

Scale for 'x' is already present. Adding another scale for 'x', which will replace the existing scale.

By day

Scale for 'x' is already present. Adding another scale for 'x', which will replace the existing scale.

By hour

Speed >50

Speed by week

Speed by day

Speed by hour

Number of session per hour

Edges per half hour

prueba <- table(cut(filter(df_hotedges_april16pt, day(time) < 7)$time, breaks = "30 mins"))
plot(prueba, xlab = "date", ylab = "frequency")